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.TITLE SYSOCLEXH = SYSTEM SERVICES CANCEL AND ARE EXIT H R 
I 7 Tbehe eM rae tft EM SERVICES CANCEL DECLARE EXIT HANDLE 
3 
0 
00 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

tag QUIPMENT _GORPORATION, MAYNARD, MASSACHUSETTS. 
RIGHTS RESERVE 
TH 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aeePORnT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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000 3 

3 

it ; SYSTEM SERVICES CANCEL AND DECLARE EXIT HANDLER 

3 > ENVIRONMENT: 

Bp : MODE=KERNEL, PAGED CODE 

900 : AUTHOR: D. N. CUTLER CREATION DATE: 10-AUG-76 

009 ; MODIFIED BY: 

000 40 ; v03-001 LJK0287 Lawrence J. Kenah 26-Jun-1984 

000 41; ount the number of exit handlers declared for each mode for 
44 ? : use by SEXIT and S$CANEXH 


FACILITY: EXECUTIVE, SYSTEM SERVICES 
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oS = S 
vOL-000 EMMI coe 5 SEP 1984 83; 56: 3 SYSVSRCTSYSbCL UEXH OMAR; 1 asee 3) mh 


x 
T 
45 SUBTITLE DECLARATIONS 
i + MACRO LIBRARY CALLS 
4 ° 
p SPSLDEF :DEFINE PROCESSOR STATUS FIELDS 
SSSDEF 'DEFINE SYSTEM STATUS VALUES 
4 > LOCAL SYMBOLS 
6 ; ARGUMENT LIST OFFSET DEFINITIONS 
0 oe 
00000004 000 3 DESBLK=4 ;EXIT CONTROL BLOCK ADDRESS 
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a .SBTTL CANCEL EXIT HANDLER 
: EXESCANEXH = CANCEL EXIT HANDLER 


4 ; 
6g ; THIS SERVICE PROVIDES THE CAPABILITY TO DELETE AN EX 
6 


IT CONTROL BLOCK OR 
: + a CONTROL BLOCKS FROM THE EXIT HANDLER LIST FOR T 


HE CALLING ACCESS 


68 ; 
; INPUTS: 


DESBLK(AP) = ADDRESS OF EXIT CONTROL BLOCK (ZERO IMPLIES ALL). 
R4 = CURRENT PROCESS PCB ADDRESS. 
OUTPUTS: 


~~NO 
—3 


74; 
fo 3 
° ) ? : RO LOW BIT CLEAR INDICATES FAILURE TO CANCEL EXIT HANDLER. 
00 8 : RO = SS$_ACCVIO = FIRST LONGWORD OF EXIT CONTROL BLOCK 
0 0: CANNOT BE READ BY THE CALLING ACCESS MODE, FIRST 
000 1: LONGWORD OF A EXIT CONTROL BLOCK IN THE LIST CANNOT 
900 : : BE READ BY THE CALLING ACCESS MODE, OR THE FIRST 
00 : LONGWORD OF THE PREVIOUS EXIT CONTROL BLOCK CANNOT 
900 , ; BE WRITTEN. 
3 = NOHANDL ad L ANN! D IN 
$000 RO = SS$_NOHANDLER = SPECIFIED HANDLER CANNOT BE FOUND I 
444 bs 3 EXIT HANLDER CONTROL BLOCK LIST. 
909 89 : RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
99 ee ; RO = SS$_NORMAL = NORMAL COMPLETION. 
00 93 ° 
00 9% .ENABL LSB 
9000 0 95 "PSECT YSEXEPAGED 
003¢ 000 96 “ENTRY EXESCANEXH, “M<R2,R3,R4,R5> 
ist 002 97 BSBB GETPARR 7GET EXIT CONTROL BLOCK PARAMETERS 
i 98 BEQL $ TIF EQL CANCEL ALL EXIT HANDLERS 
5 0 »D 006 9 MOVL  RO,R2 [COPY ADDRESS OF LISTHEAD 
; 64 D0 0009 100 MOVL  (R4)_RS :GET COUNT FOR LOOP CONTROL 
2 »D 00¢ 101 10$: MOVL Re oRS TSAVE ADDRESS OF PREVIOUS ENTRY 
00F g IFNORD #4.(R3),50$ [CAN NEXT EXIT CONTROL BLOCK ADDRESS BE READ 
52 63 D ot 1 MOVL (R$), R2 [GET ADDRESS OF NEXT EXIT CONTROL BLOCK 
46 1 018 104 BEQL 608 ZI1F Fa END OF LIST 
52 D1 001A 105 R1_R SEX L ADDRESS MATCH? 
13 001D 1 5 BEQL 13 ES MATCH 
EA Fe OO1F «1 r5,10 BLOCK IN LIST 
acl cotdlicl Ha ; i 3 — Krug fo CALLER 
‘ 
: 110 
11 TROL BLOCK ADDRESS BE READ 
53 50 o 11¢ TROL BLOCK LISTHEAD? 
i] 
114 IT CONTROL BLOCK BE WRITTEN? 
63 62 09 115 TROL BLOCK FROM LIST 
64 Df ¢ 116 LER WAS REMOVED 
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voe-000 EaSLETEHPIASS GIMCE amo DECLARE ext 1p-s-J9pe 91:97:38 YAK mae. a. 


4 11 
9% 0% BBeg 18 25$: cua R4) iH TO REFLECT EMPTY LIST 
1 1 1 BRB 0$ xT. By CLEARING L STHEAD 
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L 
-SBTTL DECLARE EXIT HANDLER 
EXESDCLEXH = DECLARE EXIT HANDLER 


THIS SERVICE PROVIDES THE CAPABILITY TO INSERT AN EXIT C 
THE FRONT OF THE EXIT HANDLER LIST FOR THE CALLING ACCES 


INPUTS: 
DESBLK(AP) = ADDRESS OF EXIT CONTROL BLOCK. 
R4 = CURRENT PROCESS PCB ADDRESS. 
OUTPUTS: 
RO LOW BIT CLEAR INDICATES FAILURE TO DECLARE EXIT HANDLER. 
RO = SS$_ACCVIO = FIRST LONGWORD OF EXIT CONTROL BLOCK 
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ONTROL BLOCK AT 
S$ MODE. 


WANA AINA rononononononory 
DONO NALS OWOONAUE UP = 


oO 
- 
= 
—> et st 4 SS = = 2 8 2 = =) a =  — = sd 2s bd — — 9 2 1 


re 9 CANNOT BE WRITTEN BY CALLING ACCESS MODE. 
Goce 4g RO = SS$_NOHANDLER = NO EXIT CONTROL BLOCK ADDRESS SPECIFIED. 
044 44 RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
O44 46 RO = SS$_NORMAL = NORMAL COMPLETION. 
0044 148 
001¢ 0044 49 .ENTRY EXESDCLEXH, “M<R2,R3,R4> 
1€ 19 046 50 SBB GETPARA :GET EXIT CONTROL BLOCK PARAMETERS 
16 13 004 51 EQL = 608 SIF EQL NO EXIT CONTROL BLOCK SPECIFIED 
O4A 3 IFNOWRT #4,(R1),50$ [CAN FIRST LONGWORD BE WRITTEN? 
61 60 pO 005 5 ove (rd), ¢(R1) SLINK OLD FIRST TO NEW FIRST 
64 06 005 54 INCL  (R4) [COUNT ANOTHER DECLARED HANDLER 
60 51 00 005 55 30$: MOVL  R1,(RO) 'SET ADDRESS OF NEW FIRST ENTRY 
50 «(01 ¢ 038 36 40S: MOVZUL #S$$_NORMAL RO [SET NORMAL COMPLETION STATUS 
50 0c ¢ 9o¢ 38 50$: MOVZWL #SS$_ACCVIO,RO [SET ACCESS VIOLATION 
50 O8F8 8F 3¢ 060 60 60$:  MOVZWL #SS$_NOHANDLER,RO ‘SET NO HANLDER STATUS 
04 006 61 RET ; 
0066 162 .OSABL LSB 
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.SBTTL GET EXIT CONTROL BLOCK PARAMETERS 


this routine obtains the ‘pereneeere that characterize this call to 
SYSSDCLEXH or SYSSCANEXH 


Input Parameter: 
DESBLK(AP) = Address of termination handler control block 
laplicit Input: 
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PSL<PRVMOD> = Access mode of caller of system service 
CTLSGL_ nent - Address of gate PO es pet array of Listheads of 
rmination handler control blocks, one each for exec, 
mtd og and user mode, 


CTLSGL_THCOUNT = Address of three-longword array of counts of 
termination handlers for each of the three access modes. 


Output Parameters: 

RO - Address of Listhead for the correct access mode 

Ri = Address of termination handler control block 

R4 = Address of count cell for the correct access mode. 
Implicit Ouptut: 


PSL<Z> = Indicates whether R1 contains a nonzero termination 
handler control block address. 


GETPARM: 
MOVPSL RC sREAD CURRENT PSL 
EXTZV  #PSLSV_PRVMOD.#PSLS$S_PRVMOD,RO,RO ; EXTRACT PREVIOUS MODE FIELC 
DECL RO ;SUBTRACT OUT XE CU TIVE MODE BIAS 
10$ E RNEL MODE 
MOVAL a@M#CTLS$GL_THCOUNTCR 
MOVAL a#CTL$GL~THEXECLRO 
MOVL DESBLK(AP),R1 
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10$: a CHECK IVSSRVRQST 


il REQUEST 
OyzZuL #SS$_IVSSRQ,RO is I 
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Symbol table SYS.SRCISYSDCLEXH.MAR; 1 
BUGS_IVSSRVRQST eeeereee 8 8 6X 
CTLSGL_THCOUNT ateeeeen =X 
CTLSGL_THEXEC eereeree = =X 
DESBLK = 4 
EXESCANEXH ? RG 
EXESOCLEXH RG 
GETPARA R 
PSL$S_PRVMOD z 
eat Sy PRVMOD = 
SS$_ACCVIO = 0 
SS$_INVEXHLIST = ° 
see_ivssha = } 4 
SS$_NOHANDLER = F8 
$S$_NORMAL = 00000001 
$ ecm oen coe memes + 
: Psect synopsis ! 
-wmaermne wn acocoee 3 
PSECT name Allocation PSECT No. Attributes 
- ABs . 00000000 <¢ 3 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ( of 1¢( 1.) NOPIC USR CON ABS LCL NOSHR- EXE RD WRT NOVEC BYTE 
x . ° NOP U ON REL LCL NOSH XE RD WRT NOVEC BY 
YSEXEPAGED 00000090 (¢ 144.) 02 ¢ 2.) Ic sk C¢ OSHR € T TE 
duceeusssanenesesesasasen} 
! Performance indicators ! 
H Perf indi : 
Phase Page faults CPU Time Elapsed Time 
Initialization 35 8:00: 8-98 00:00:01 .g7 
Command processing 129 0:00:00. Bb ho 48" 4 
Pass 207 :00:04.2 00:00:15.04 
Symbol table sort 9 :00: 8 9 4 
ed, table output 3 0 :00:00. 3 0; 0: 3°65 
u : : e : : e 
Psect synopsis eutput 1 :00:00. 0:00;00-03 
Cross-reference output 3 :00:00. : 8:8 : 9-08 
Assembler run totals 43 0:00:06. 0:00:27.19 


ihe york ing ses Limit was 1200 pages. 
23715 bytes_(47 pages) of virtual memory were used to buffer the intermediate gore. 
There were 30 pages of symbol table space allocated to hold 453 non-local ane local symbols. 
10 source Lines were read in Pass 1, producing 19 object records in Pass 2. 
pages of virtual memory were used to define 11 macros. 
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; Macro library statistics ; 


Macro Library name Macros defined 
SDUA28:CSYS.OBJJLIB.MLB;1 

~B355souase: VSL IBISTARLET ALB: 2 ; 

TOTALS (all Libraries) 


22% 


SYSDCLEXH 
vaneit Macro Run Statistics 


525 GETS were required to define 8 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SYSDCLEXH/OBJ=OBJ$:SYSDCLEXH MSRC$:SYSDCLEXH/UPDATE=(ENHS: SYSDCLEXH) +EXECML$/LIB 
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